home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / M4__ / HANOI.M4 < prev    next >
Text File  |  1988-11-08  |  215b  |  9 lines
  1. define(DECR,`eval($1-1)')
  2. define(hanoi, `trans(A, B, C, $1)')
  3.  
  4. define(moved,`move disk from $1 to $2
  5. ')
  6.  
  7. define(trans, `ifelse($4,1,`moved($1,$2)',
  8.     `trans($1,$3,$2,DECR($4))moved($1,$2)trans($3,$2,$1,DECR($4))')')
  9.